home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TUTOR150.ZIP / COMMANDS.MOD (.txt) next >
PCBoard Programming Language Executable  |  1995-06-08  |  42KB  |  1,536 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     Declare  Function FUNCTION001() String
  44.     Declare  Function FUNCTION002() String
  45.     Declare  Function FUNCTION003() String
  46.     Declare  Function FUNCTION004() String
  47.     Declare  Function FUNCTION005() String
  48.  
  49. ;------------------------------------------------------------------------------
  50.  
  51.     STRING001 = ReadLine(PCBDat(), 94)
  52.     INTEGER001 = Len(STRING001) / 2
  53.     STRING002 = String(Asc(Mid(STRING001, INTEGER001, 3))) + String(Asc(Right(STRING001, 3))) + String(Asc(Mid(STRING001, 1, 3)))
  54.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  55.     FGet 1, STRING003
  56.     FGet 1, STRING004
  57.     FGet 1, STRING007
  58.     FGet 1, STRING005
  59.     FGet 1, STRING006
  60.     FGet 1, STRING009
  61.     FGet 1, STRING010
  62.     FGet 1, STRING011
  63.     FGet 1, STRING012
  64.     FGet 1, STRING013
  65.     FGet 1, STRING014
  66.     FGet 1, STRING015
  67.     FGet 1, STRING016
  68.     FGet 1, STRING017
  69.     FGet 1, STRING018
  70.     FCloseAll
  71.     :LABEL001
  72.     AnsiPos 1, 4
  73.     PrintLn "@X70│ @X6F  @X60(@X6FC@X60)@X67ontinue @X6F @X78▄ @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  74.     AnsiPos 1, 5
  75.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07┌──────────────────────────────────────────────────┐@X37@X01░░@X17║@X07"
  76.     AnsiPos 1, 6
  77.     PrintLn "@X70│ @X10 @X13(@X1FM@X13)@X17ain Menu  @X78▄ @X70│@X01  @X17║@X01░░@X07│@X4F                 COMMAND PROMPTS                  @X07│@X01░░@X17║@X07"
  78.     AnsiPos 1, 7
  79.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  80.     AnsiPos 1, 8
  81.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E1@X0C] @X0AA@X0Fbandon Conference                @X07│@X01░░@X17║@X07"
  82.     AnsiPos 1, 9
  83.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E2@X0C] @X0AB@X0Fulletins                         @X07│@X01░░@X17║@X07"
  84.     AnsiPos 1, 10
  85.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E3@X0C] @X0AC@X0Fomment to SysOp                  @X07│@X01░░@X17║@X07"
  86.     AnsiPos 1, 11
  87.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E4@X0C] @X0AD@X0Fownload a file                   @X07│@X01░░@X17║@X07"
  88.     AnsiPos 1, 12
  89.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E5@X0C] @X0AE@X0Fnter a message                   @X07│@X01░░@X17║@X07"
  90.     AnsiPos 1, 13
  91.     PrintLn "@X70│                 │@X01  @X17║@X01░░@X07│            @X0C[@X0E6@X0C] @X0AF@X0File Directories                  @X07│@X01░░@X17║@X07"
  92.     AnsiPos 1, 14
  93.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E7@X0C] @X0AG@X0Foodbye (Logoff)                  @X07│@X01░░@X17║@X07"
  94.     AnsiPos 1, 15
  95.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E8@X0C] @X0F@X0AH@X0Felp                              @X07│@X01░░@X17║@X07"
  96.     AnsiPos 1, 16
  97.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E9@X0C] @X0F@X0AI@X0Fnitial Welcome                   @X07│@X01░░@X17║@X07"
  98.     AnsiPos 1, 17
  99.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  100.     AnsiPos 1, 18
  101.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07│   @X0BPress @X0F(@X0EC@X0F) @X0Bto continue and view more commands   @X07│@X01░░@X17║@X07"
  102.     AnsiPos 1, 19
  103.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07└──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  104.     AnsiPos 1, 20
  105.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  106.     AnsiPos 1, 21
  107.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  108.     AnsiPos 1, 22
  109.     PrintLn "                                                            "
  110.     AnsiPos 1, 22
  111.     STRING008 = " "
  112.     While (Upper(STRING008) <> "E") Do
  113.         STRING008 = FUNCTION001()
  114.         If (STRING008 == "END") Goto LABEL049
  115.         If (STRING008 == Chr(13)) Goto LABEL002
  116.         If (Upper(STRING008) == "1") Then
  117.             Goto LABEL037
  118.             Continue
  119.         Endif
  120.         If (Upper(STRING008) == "2") Then
  121.             Goto LABEL029
  122.             Continue
  123.         Endif
  124.         If (Upper(STRING008) == "3") Then
  125.             Goto LABEL020
  126.             Continue
  127.         Endif
  128.         If (Upper(STRING008) == "4") Then
  129.             Goto LABEL031
  130.             Continue
  131.         Endif
  132.         If (Upper(STRING008) == "5") Then
  133.             Goto LABEL040
  134.             Continue
  135.         Endif
  136.         If (Upper(STRING008) == "6") Then
  137.             Goto LABEL032
  138.             Continue
  139.         Endif
  140.         If (Upper(STRING008) == "7") Then
  141.             Goto LABEL021
  142.             Continue
  143.         Endif
  144.         If (Upper(STRING008) == "8") Then
  145.             Goto LABEL027
  146.             Continue
  147.         Endif
  148.         If (Upper(STRING008) == "9") Then
  149.             Goto LABEL039
  150.             Continue
  151.         Endif
  152.         If (Upper(STRING008) == "C") Then
  153.             Goto LABEL003
  154.             Continue
  155.         Endif
  156.         If (Upper(STRING008) == "M") Then
  157.             Goto LABEL049
  158.             Continue
  159.         Endif
  160.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  161.             Goto LABEL049
  162.         Endif
  163.     EndWhile
  164.     End
  165.  
  166. ;------------------------------------------------------------------------------
  167.  
  168.     Function FUNCTION001() String
  169.  
  170.     While (FUNCTION001 == "") Do
  171.         FUNCTION001 = Inkey()
  172.     EndWhile
  173.  
  174.     EndFunc
  175.  
  176.     :LABEL002
  177.     Gosub LABEL048
  178.     Goto LABEL001
  179.     :LABEL003
  180.     AnsiPos 1, 4
  181.     PrintLn "@X70│ @X6F  @X60(@X6FC@X60)@X67ontinue @X6F @X78▄ @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  182.     AnsiPos 1, 5
  183.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07┌──────────────────────────────────────────────────┐@X37@X01░░@X17║@X07"
  184.     AnsiPos 1, 6
  185.     PrintLn "@X70│ @X10 @X13(@X1FM@X13)@X17ain Menu  @X78▄ @X70│@X01  @X17║@X01░░@X07│@X4F                 COMMAND PROMPTS                  @X07│@X01░░@X17║@X07"
  186.     AnsiPos 1, 7
  187.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  188.     AnsiPos 1, 8
  189.     PrintLn "@X70│ @X2F    @X28(@X2FB@X28)@X20ack    @X78▄ @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E1@X0C] @X0AJ@X0Foin a conference                 @X07│@X01░░@X17║@X07"
  190.     AnsiPos 1, 9
  191.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E2@X0C] @X0AK@X0Fill a message                    @X07│@X01░░@X17║@X07"
  192.     AnsiPos 1, 10
  193.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E3@X0C] @X0AL@X0Focate a file                     @X07│@X01░░@X17║@X07"
  194.     AnsiPos 1, 11
  195.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E4@X0C] @X0AM@X0Fode - Color On/Off               @X07│@X01░░@X17║@X07"
  196.     AnsiPos 1, 12
  197.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E5@X0C] @X0AN@X0Few file scan                     @X07│@X01░░@X17║@X07"
  198.     AnsiPos 1, 13
  199.     PrintLn "@X70│                 │@X01  @X17║@X01░░@X07│            @X0C[@X0E6@X0C] @X0AO@X0Fperator Page                     @X07│@X01░░@X17║@X07"
  200.     AnsiPos 1, 14
  201.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E7@X0C] @X0AP@X0Fage length set                   @X07│@X01░░@X17║@X07"
  202.     AnsiPos 1, 15
  203.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E8@X0C] @X0AQ@X0Fuick message scan                @X07│@X01░░@X17║@X07"
  204.     AnsiPos 1, 16
  205.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E9@X0C] @X0AR@X0Fead messages                     @X07│@X01░░@X17║@X07"
  206.     AnsiPos 1, 17
  207.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  208.     AnsiPos 1, 18
  209.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07│   @X0BPress @X0F(@X0EC@X0F) @X0Bto continue and view more commands   @X07│@X01░░@X17║@X07"
  210.     AnsiPos 1, 19
  211.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07└──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  212.     AnsiPos 1, 20
  213.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  214.     AnsiPos 1, 21
  215.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  216.     AnsiPos 1, 22
  217.     PrintLn "                                                            "
  218.     AnsiPos 1, 22
  219.     STRING008 = " "
  220.     While (Upper(STRING008) <> "E") Do
  221.         STRING008 = FUNCTION002()
  222.         If (STRING008 == "END") Goto LABEL049
  223.         If (STRING008 == Chr(13)) Goto LABEL004
  224.         If (Upper(STRING008) == "1") Then
  225.             Goto LABEL038
  226.             Continue
  227.         Endif
  228.         If (Upper(STRING008) == "2") Then
  229.             Goto LABEL041
  230.             Continue
  231.         Endif
  232.         If (Upper(STRING008) == "3") Then
  233.             Goto LABEL033
  234.             Continue
  235.         Endif
  236.         If (Upper(STRING008) == "4") Then
  237.             Goto LABEL022
  238.             Continue
  239.         Endif
  240.         If (Upper(STRING008) == "5") Then
  241.             Goto LABEL046
  242.             Continue
  243.         Endif
  244.         If (Upper(STRING008) == "6") Then
  245.             Goto LABEL030
  246.             Continue
  247.         Endif
  248.         If (Upper(STRING008) == "7") Then
  249.             Goto LABEL045
  250.             Continue
  251.         Endif
  252.         If (Upper(STRING008) == "8") Then
  253.             Goto LABEL042
  254.             Continue
  255.         Endif
  256.         If (Upper(STRING008) == "9") Then
  257.             Goto LABEL035
  258.             Continue
  259.         Endif
  260.         If (Upper(STRING008) == "C") Then
  261.             Goto LABEL005
  262.             Continue
  263.         Endif
  264.         If (Upper(STRING008) == "B") Then
  265.             Goto LABEL001
  266.             Continue
  267.         Endif
  268.         If (Upper(STRING008) == "M") Then
  269.             Goto LABEL049
  270.             Continue
  271.         Endif
  272.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  273.             Goto LABEL049
  274.         Endif
  275.     EndWhile
  276.     End
  277.  
  278. ;------------------------------------------------------------------------------
  279.  
  280.     Function FUNCTION002() String
  281.  
  282.     While (FUNCTION002 == "") Do
  283.         FUNCTION002 = Inkey()
  284.     EndWhile
  285.  
  286.     EndFunc
  287.  
  288.     :LABEL004
  289.     Gosub LABEL048
  290.     Goto LABEL003
  291.     :LABEL005
  292.     Select Case (STRING009)
  293.         Case "YES"
  294.             Goto LABEL006
  295.         Case "NO"
  296.             Goto LABEL007
  297.     End Select
  298.     :LABEL006
  299.     AnsiPos 1, 4
  300.     PrintLn "@X70│ @X60  (@X6FC@X60)@X67ontinue  @X78▄ @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  301.     AnsiPos 1, 5
  302.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07┌──────────────────────────────────────────────────┐@X37@X01░░@X17║@X07"
  303.     AnsiPos 1, 6
  304.     PrintLn "@X70│ @X10 @X13@X13(@X1FM@X13)@X17ain Menu  @X78▄ @X70│@X01  @X17║@X01░░@X07│@X4F                 COMMAND PROMPTS                  @X07│@X01░░@X17║@X07"
  305.     AnsiPos 1, 7
  306.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  307.     AnsiPos 1, 8
  308.     PrintLn "@X70│ @X2F    @X28(@X2FB@X28)@X20ack    @X78▄ @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E1@X0C] @X0AT@X0Fransfer Protocol                 @X07│@X01░░@X17║@X07"
  309.     AnsiPos 1, 9
  310.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E2@X0C] @X0AV@X0Fiew your stats                   @X07│@X01░░@X17║@X07"
  311.     AnsiPos 1, 10
  312.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E3@X0C] @X0AW@X0Frite user information            @X07│@X01░░@X17║@X07"
  313.     AnsiPos 1, 11
  314.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E4@X0C] @X0AX@X0F-pert mode On/Off                @X07│@X01░░@X17║@X07"
  315.     AnsiPos 1, 12
  316.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E5@X0C] @X0AZ@X0Fippy text search                 @X07│@X01░░@X17║@X07"
  317.     AnsiPos 1, 13
  318.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E6@X0C] @X0AU@X0Fpload a file                     @X07│@X01░░@X17║@X07"
  319.     AnsiPos 1, 14
  320.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E7@X0C] @X0AWHO@X0F's online                      @X07│@X01░░@X17║@X07"
  321.     AnsiPos 1, 15
  322.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E8@X0C] @X0ANEWS                              @X07│@X01░░@X17║@X07"
  323.     AnsiPos 1, 16
  324.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E9@X0C] @X0AOPEN @X0Fa Door                       @X07│@X01░░@X17║@X07"
  325.     AnsiPos 1, 17
  326.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  327.     AnsiPos 1, 18
  328.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07│   @X0BPress @X0F(@X0EC@X0F) @X0Bto continue and view more commands   @X07│@X01░░@X17║@X07"
  329.     AnsiPos 1, 19
  330.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07└──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  331.     AnsiPos 1, 20
  332.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  333.     AnsiPos 1, 21
  334.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  335.     AnsiPos 1, 22
  336.     PrintLn "                                                            "
  337.     AnsiPos 1, 22
  338.     STRING008 = " "
  339.     While (Upper(STRING008) <> "E") Do
  340.         STRING008 = FUNCTION003()
  341.         If (STRING008 == "END") Goto LABEL049
  342.         If (STRING008 == Chr(13)) Goto LABEL008
  343.         If (Upper(STRING008) == "1") Then
  344.             Goto LABEL044
  345.             Continue
  346.         Endif
  347.         If (Upper(STRING008) == "2") Then
  348.             Goto LABEL024
  349.             Continue
  350.         Endif
  351.         If (Upper(STRING008) == "3") Then
  352.             Goto LABEL043
  353.             Continue
  354.         Endif
  355.         If (Upper(STRING008) == "4") Then
  356.             Goto LABEL028
  357.             Continue
  358.         Endif
  359.         If (Upper(STRING008) == "5") Then
  360.             Goto LABEL034
  361.             Continue
  362.         Endif
  363.         If (Upper(STRING008) == "6") Then
  364.             Goto LABEL036
  365.             Continue
  366.         Endif
  367.         If (Upper(STRING008) == "7") Then
  368.             Goto LABEL026
  369.             Continue
  370.         Endif
  371.         If (Upper(STRING008) == "8") Then
  372.             Goto LABEL025
  373.             Continue
  374.         Endif
  375.         If (Upper(STRING008) == "9") Then
  376.             Goto LABEL023
  377.             Continue
  378.         Endif
  379.         If (Upper(STRING008) == "B") Then
  380.             Goto LABEL003
  381.             Continue
  382.         Endif
  383.         If (Upper(STRING008) == "M") Then
  384.             Goto LABEL049
  385.             Continue
  386.         Endif
  387.         If (Upper(STRING008) == "C") Then
  388.             Goto LABEL009
  389.             Continue
  390.         Endif
  391.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  392.             Goto LABEL049
  393.         Endif
  394.     EndWhile
  395.     End
  396.  
  397. ;------------------------------------------------------------------------------
  398.  
  399.     Function FUNCTION003() String
  400.  
  401.     While (FUNCTION003 == "") Do
  402.         FUNCTION003 = Inkey()
  403.     EndWhile
  404.  
  405.     EndFunc
  406.  
  407.     :LABEL007
  408.     AnsiPos 1, 4
  409.     PrintLn "@X70│                 @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  410.     AnsiPos 1, 5
  411.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07┌──────────────────────────────────────────────────┐@X37@X01░░@X17║@X07"
  412.     AnsiPos 1, 6
  413.     PrintLn "@X70│ @X10 @X13@X13(@X1FM@X13)@X17ain Menu  @X78▄ @X70│@X01  @X17║@X01░░@X07│@X4F                 COMMAND PROMPTS                  @X07│@X01░░@X17║@X07"
  414.     AnsiPos 1, 7
  415.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  416.     AnsiPos 1, 8
  417.     PrintLn "@X70│ @X2F    @X28(@X2FB@X28)@X20ack    @X78▄ @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E1@X0C] @X0AT@X0Fransfer Protocol                 @X07│@X01░░@X17║@X07"
  418.     AnsiPos 1, 9
  419.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E2@X0C] @X0AV@X0Fiew your stats                   @X07│@X01░░@X17║@X07"
  420.     AnsiPos 1, 10
  421.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E3@X0C] @X0AW@X0Frite user information            @X07│@X01░░@X17║@X07"
  422.     AnsiPos 1, 11
  423.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E4@X0C] @X0AX@X0F-pert mode On/Off                @X07│@X01░░@X17║@X07"
  424.     AnsiPos 1, 12
  425.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E5@X0C] @X0AZ@X0Fippy text search                 @X07│@X01░░@X17║@X07"
  426.     AnsiPos 1, 13
  427.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E6@X0C] @X0AU@X0Fpload a file                     @X07│@X01░░@X17║@X07"
  428.     AnsiPos 1, 14
  429.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E7@X0C] @X0AWHO@X0F's online                      @X07│@X01░░@X17║@X07"
  430.     AnsiPos 1, 15
  431.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E8@X0C] @X0ANEWS                              @X07│@X01░░@X17║@X07"
  432.     AnsiPos 1, 16
  433.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│            @X0C[@X0E9@X0C] @X0AOPEN @X0Fa Door                       @X07│@X01░░@X17║@X07"
  434.     AnsiPos 1, 17
  435.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  436.     AnsiPos 1, 18
  437.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  438.     AnsiPos 1, 19
  439.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07└──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  440.     AnsiPos 1, 20
  441.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  442.     AnsiPos 1, 21
  443.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  444.     AnsiPos 1, 22
  445.     PrintLn "                                                            "
  446.     AnsiPos 1, 22
  447.     STRING008 = " "
  448.     While (Upper(STRING008) <> "E") Do
  449.         STRING008 = FUNCTION004()
  450.         If (STRING008 == "END") Goto LABEL049
  451.         If (STRING008 == Chr(13)) Goto LABEL008
  452.         If (Upper(STRING008) == "1") Then
  453.             Goto LABEL044
  454.             Continue
  455.         Endif
  456.         If (Upper(STRING008) == "2") Then
  457.             Goto LABEL024
  458.             Continue
  459.         Endif
  460.         If (Upper(STRING008) == "3") Then
  461.             Goto LABEL043
  462.             Continue
  463.         Endif
  464.         If (Upper(STRING008) == "4") Then
  465.             Goto LABEL028
  466.             Continue
  467.         Endif
  468.         If (Upper(STRING008) == "5") Then
  469.             Goto LABEL034
  470.             Continue
  471.         Endif
  472.         If (Upper(STRING008) == "6") Then
  473.             Goto LABEL036
  474.             Continue
  475.         Endif
  476.         If (Upper(STRING008) == "7") Then
  477.             Goto LABEL026
  478.             Continue
  479.         Endif
  480.         If (Upper(STRING008) == "8") Then
  481.             Goto LABEL025
  482.             Continue
  483.         Endif
  484.         If (Upper(STRING008) == "9") Then
  485.             Goto LABEL023
  486.             Continue
  487.         Endif
  488.         If (Upper(STRING008) == "B") Then
  489.             Goto LABEL003
  490.             Continue
  491.         Endif
  492.         If (Upper(STRING008) == "M") Then
  493.             Goto LABEL049
  494.             Continue
  495.         Endif
  496.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  497.             Goto LABEL049
  498.         Endif
  499.     EndWhile
  500.     End
  501.  
  502. ;------------------------------------------------------------------------------
  503.  
  504.     Function FUNCTION004() String
  505.  
  506.     While (FUNCTION004 == "") Do
  507.         FUNCTION004 = Inkey()
  508.     EndWhile
  509.  
  510.     EndFunc
  511.  
  512.     :LABEL008
  513.     Gosub LABEL048
  514.     Goto LABEL005
  515.     :LABEL009
  516.     AnsiPos 1, 4
  517.     PrintLn "@X70│                 @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  518.     AnsiPos 1, 5
  519.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07┌──────────────────────────────────────────────────┐@X37@X01░░@X17║@X07"
  520.     AnsiPos 1, 6
  521.     PrintLn "@X70│ @X10 @X13(@X1FM@X13)@X17ain Menu  @X78▄ @X70│@X01  @X17║@X01░░@X07│@X4F               CUSTOM COMMAND PROMPTS             @X07│@X01░░@X17║@X07"
  522.     AnsiPos 1, 7
  523.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  524.     AnsiPos 1, 8
  525.     PrintLn "@X70│ @X28    @X28(@X2FB@X28)@X20ack    @X78▄ @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  526.     AnsiPos 1, 9
  527.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  528.     AnsiPos 1, 10
  529.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  530.     AnsiPos 1, 11
  531.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  532.     AnsiPos 1, 12
  533.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  534.     AnsiPos 1, 13
  535.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  536.     AnsiPos 1, 14
  537.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  538.     AnsiPos 1, 15
  539.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  540.     AnsiPos 1, 16
  541.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  @X07│@X01░░@X17║@X07"
  542.     AnsiPos 1, 17
  543.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  544.     AnsiPos 1, 18
  545.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07│                                                  │@X01░░@X17║@X07"
  546.     AnsiPos 1, 19
  547.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07└──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  548.     AnsiPos 1, 20
  549.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  550.     AnsiPos 1, 21
  551.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  552.     AnsiPos 1, 22
  553.     PrintLn "                                                            "
  554.     AnsiPos 1, 22
  555.     AnsiPos 38, 8
  556.     PrintLn "" + STRING010
  557.     AnsiPos 38, 9
  558.     PrintLn "" + STRING011
  559.     AnsiPos 38, 10
  560.     PrintLn "" + STRING012
  561.     AnsiPos 38, 11
  562.     PrintLn "" + STRING013
  563.     AnsiPos 38, 12
  564.     PrintLn "" + STRING014
  565.     AnsiPos 38, 13
  566.     PrintLn "" + STRING015
  567.     AnsiPos 38, 14
  568.     PrintLn "" + STRING016
  569.     AnsiPos 38, 15
  570.     PrintLn "" + STRING017
  571.     AnsiPos 38, 16
  572.     PrintLn "" + STRING018
  573.     STRING008 = " "
  574.     While (Upper(STRING008) <> "E") Do
  575.         STRING008 = FUNCTION005()
  576.         If (STRING008 == "END") Goto LABEL049
  577.         If (STRING008 == Chr(13)) Goto LABEL010
  578.         If (Upper(STRING008) == "1") Then
  579.             Goto LABEL011
  580.             Continue
  581.         Endif
  582.         If (Upper(STRING008) == "2") Then
  583.             Goto LABEL012
  584.             Continue
  585.         Endif
  586.         If (Upper(STRING008) == "3") Then
  587.             Goto LABEL013
  588.             Continue
  589.         Endif
  590.         If (Upper(STRING008) == "4") Then
  591.             Goto LABEL014
  592.             Continue
  593.         Endif
  594.         If (Upper(STRING008) == "5") Then
  595.             Goto LABEL015
  596.             Continue
  597.         Endif
  598.         If (Upper(STRING008) == "6") Then
  599.             Goto LABEL016
  600.             Continue
  601.         Endif
  602.         If (Upper(STRING008) == "7") Then
  603.             Goto LABEL017
  604.             Continue
  605.         Endif
  606.         If (Upper(STRING008) == "8") Then
  607.             Goto LABEL018
  608.             Continue
  609.         Endif
  610.         If (Upper(STRING008) == "9") Then
  611.             Goto LABEL019
  612.             Continue
  613.         Endif
  614.         If (Upper(STRING008) == "B") Then
  615.             Goto LABEL005
  616.             Continue
  617.         Endif
  618.         If (Upper(STRING008) == "M") Then
  619.             Goto LABEL049
  620.             Continue
  621.         Endif
  622.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  623.             Goto LABEL049
  624.         Endif
  625.     EndWhile
  626.     End
  627.  
  628. ;------------------------------------------------------------------------------
  629.  
  630.     Function FUNCTION005() String
  631.  
  632.     While (FUNCTION005 == "") Do
  633.         FUNCTION005 = Inkey()
  634.     EndWhile
  635.  
  636.     EndFunc
  637.  
  638.     :LABEL010
  639.     Gosub LABEL048
  640.     Goto LABEL009
  641.     :LABEL011
  642.     DispFile PPEPath() + "CUSTOM1.TXT", 0
  643.     Wait
  644.     Goto LABEL009
  645.     :LABEL012
  646.     DispFile PPEPath() + "CUSTOM2.TXT", 0
  647.     Wait
  648.     Goto LABEL009
  649.     :LABEL013
  650.     DispFile PPEPath() + "CUSTOM3.TXT", 0
  651.     Wait
  652.     Goto LABEL009
  653.     :LABEL014
  654.     DispFile PPEPath() + "CUSTOM4.TXT", 0
  655.     Wait
  656.     Goto LABEL009
  657.     :LABEL015
  658.     DispFile PPEPath() + "CUSTOM5.TXT", 0
  659.     Wait
  660.     Goto LABEL009
  661.     :LABEL016
  662.     DispFile PPEPath() + "CUSTOM6.TXT", 0
  663.     Wait
  664.     Goto LABEL009
  665.     :LABEL017
  666.     DispFile PPEPath() + "CUSTOM7.TXT", 0
  667.     Wait
  668.     Goto LABEL009
  669.     :LABEL018
  670.     DispFile PPEPath() + "CUSTOM8.TXT", 0
  671.     Wait
  672.     Goto LABEL009
  673.     :LABEL019
  674.     DispFile PPEPath() + "CUSTOM9.TXT", 0
  675.     Wait
  676.     Goto LABEL009
  677.     :LABEL020
  678.     Gosub LABEL047
  679.     AnsiPos 1, 4
  680.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EC@X0C]@X0Eomment to the SysOp                      @X17 ║@X07"
  681.     AnsiPos 1, 5
  682.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  683.     AnsiPos 1, 6
  684.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  685.     AnsiPos 1, 7
  686.     PrintLn "@X17║ @X07│ @X0FThis command allows you to leave a private message (e-mail) to the      @X07│@X17 ║@X07"
  687.     AnsiPos 1, 8
  688.     PrintLn "@X17║ @X07│ @X0F@X0BSys@X0Ftem @X0BOp@X0Ferator.                                                        @X07@X07│@X17 ║@X07"
  689.     AnsiPos 1, 22
  690.     PrintLn "                                                            "
  691.     AnsiPos 1, 22
  692.     Wait
  693.     Goto LABEL001
  694.     :LABEL021
  695.     Gosub LABEL047
  696.     AnsiPos 1, 4
  697.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EG@X0C]@X0Eoodbye @X0C(@X0FHang-up@X0C) (@X0FLog-off@X0C)               @X17 ║@X07"
  698.     AnsiPos 1, 5
  699.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  700.     AnsiPos 1, 6
  701.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  702.     AnsiPos 1, 7
  703.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  704.     AnsiPos 1, 8
  705.     PrintLn "@X17║ @X07│ @X0FChoosing this command will disconnect you properly from the system.     @X07@X07│@X17 ║@X07"
  706.     AnsiPos 1, 22
  707.     PrintLn "                                                            "
  708.     AnsiPos 1, 22
  709.     Wait
  710.     Goto LABEL001
  711.     :LABEL022
  712.     Gosub LABEL047
  713.     AnsiPos 1, 4
  714.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EM@X0C]@X0Eode - @X0FC@X0Do@X0Bl@X0Ao@X09r @X0E(on/off)                     @X17 ║@X07"
  715.     AnsiPos 1, 5
  716.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  717.     AnsiPos 1, 6
  718.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  719.     AnsiPos 1, 7
  720.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  721.     AnsiPos 1, 8
  722.     PrintLn "@X17║ @X07│ @X0FChoose this option to switch between @X0Ec@X0Bo@X0Fl@X0Ao@X0Dr @X0Fand black and white screens. @X07@X07│@X17 ║@X07"
  723.     AnsiPos 1, 22
  724.     PrintLn "                                                            "
  725.     AnsiPos 1, 22
  726.     Wait
  727.     Goto LABEL003
  728.     :LABEL023
  729.     Gosub LABEL047
  730.     AnsiPos 1, 4
  731.     PrintLn "@X0F@X70└─  @X7F 50% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EOP@X0C]@X0Een a Door                               @X17 ║@X07"
  732.     AnsiPos 1, 5
  733.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  734.     AnsiPos 1, 6
  735.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  736.     AnsiPos 1, 7
  737.     PrintLn "@X17║ @X07│   @X60┌──────────────────@X67┐@X07  @X0FThis command allows you to @X0BOPEN @X0Fa door to       @X07│@X17 ║@X07"
  738.     AnsiPos 1, 8
  739.     PrintLn "@X17║ @X07│   @X60│     @X67┌──────@X60┐     @X67│@X07  @X0Fanother application.                            @X07@X07│@X17 ║@X07"
  740.     AnsiPos 1, 9
  741.     PrintLn "@X17║ @X07│   @X60│     @X67│      @X60│     @X67│@X07                                                  @X07│@X17 ║@X07"
  742.     AnsiPos 1, 10
  743.     PrintLn "@X17║ @X07│   @X60│     @X67└@X60──────┘     @X67│@X07  @X0FAll online games, QWK mail doors, and other     @X07│@X17 ║@X07"
  744.     AnsiPos 1, 11
  745.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07  @X0Fuseful programs will be located here.           @X07│@X17 ║@X07"
  746.     AnsiPos 1, 12
  747.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07  @X0F                                                @X07│@X17 ║@X07"
  748.     AnsiPos 1, 13
  749.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07                                                  @X07│@X17 ║@X07"
  750.     AnsiPos 1, 14
  751.     PrintLn "@X17║ @X07│   @X60│                @X6F° @X67│@X07                                                  @X07│@X17 ║@X07"
  752.     AnsiPos 1, 15
  753.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07                                                  @X07│@X17 ║@X07"
  754.     AnsiPos 1, 16
  755.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07                                                  @X07│@X17 ║@X07"
  756.     AnsiPos 1, 17
  757.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07                                                  @X07│@X17 ║@X07"
  758.     AnsiPos 1, 18
  759.     PrintLn "@X17║ @X07│   @X60│                  @X67│@X07                                                  @X07│@X17 ║@X07"
  760.     AnsiPos 1, 19
  761.     PrintLn "@X17║ @X07│   @X60└@X67──────────────────┘@X07                                                  @X07│@X17 ║@X07"
  762.     AnsiPos 1, 22
  763.     PrintLn "                                                            "
  764.     AnsiPos 1, 22
  765.     Wait
  766.     AnsiPos 1, 4
  767.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EOP@X0C]@X0Een a Door                               @X17 ║@X07"
  768.     AnsiPos 1, 5
  769.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  770.     AnsiPos 1, 6
  771.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  772.     AnsiPos 1, 7
  773.     PrintLn "@X17║ @X07│  @X0FYou can access the online doors a number of different ways.            @X07│@X17 ║@X07"
  774.     AnsiPos 1, 8
  775.     PrintLn "@X17║ @X07│  @X0E1@X0C) @X0FTo see a list of all the doors available just type @X0AOP @X0For @X0AOPEN @X0Fat    @X07@X07│@X17 ║@X07"
  776.     AnsiPos 1, 9
  777.     PrintLn "@X17║ @X07│     @X0Fthe menu prompt.                                                    @X07│@X17 ║@X07"
  778.     AnsiPos 1, 10
  779.     PrintLn "@X17║ @X07│  @X0E2@X0C) @X0FTo access a door directly from the menu without having to go the    @X07│@X17 ║@X07"
  780.     AnsiPos 1, 11
  781.     PrintLn "@X17║ @X07│     @X0Fdoors menu type, @X0AOP @X0For @X0AOPEN @X0Ffollowed by the @X0Adoor number@X0F.            @X07│@X17 ║@X07"
  782.     AnsiPos 1, 12
  783.     PrintLn "@X17║ @X07│  @X0E3@X0C) @X0FOr, you can access a door right from the menu prompt also, by       @X07│@X17 ║@X07"
  784.     AnsiPos 1, 13
  785.     PrintLn "@X17║ @X07│     @X0Ftyping the doors @X0Aname@X0F.                                              @X07│@X17 ║@X07"
  786.     AnsiPos 1, 14
  787.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  788.     AnsiPos 1, 15
  789.     PrintLn "@X17║ @X07│  @X0DFor example: @X0FIf an online game `Battle of the SySops` was number #14   @X07│@X17 ║@X07"
  790.     AnsiPos 1, 16
  791.     PrintLn "@X17║ @X07│  @X0Fon the doors menu and it had a keyword of `BOTS`, you would be able to @X07│@X17 ║@X07"
  792.     AnsiPos 1, 17
  793.     PrintLn "@X17║ @X07│  @X0Faccess the door right from the menu prompt by typing...                @X07│@X17 ║@X07"
  794.     AnsiPos 1, 18
  795.     PrintLn "@X17║ @X07│  @X0BOP @X0C<space> @X0B14  @X0For,  @X0BOPEN @X0C<space> @X0B14  @X0For,  @X0BBOTS                         @X07│@X17 ║@X07"
  796.     AnsiPos 1, 19
  797.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  798.     AnsiPos 1, 22
  799.     PrintLn "                                                            "
  800.     AnsiPos 1, 22
  801.     Wait
  802.     Goto LABEL005
  803.     :LABEL024
  804.     Gosub LABEL047
  805.     AnsiPos 1, 4
  806.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EV@X0C]@X0Eiew your Stats                           @X17 ║@X07"
  807.     AnsiPos 1, 5
  808.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  809.     AnsiPos 1, 6
  810.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  811.     AnsiPos 1, 7
  812.     PrintLn "@X17║ @X07│ @X0FThis command will show you your current system statistics. Such as the  @X07│@X17 ║@X07"
  813.     AnsiPos 1, 8
  814.     PrintLn "@X17║ @X07│ @X0Fnumber of downloads, uploads, message stats plus others.                @X07@X07│@X17 ║@X07"
  815.     AnsiPos 1, 9
  816.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  817.     AnsiPos 1, 10
  818.     PrintLn "@X17║ @X07│ @X0DFor example: @X0BHere are some of your system statistics...                 @X07│@X17 ║@X07"
  819.     AnsiPos 1, 11
  820.     PrintLn "@X17║ @X07│ @X70┌─────────────────────────────────────────────────────────────────────@X7F┐@X07 @X07│@X17 ║@X07"
  821.     AnsiPos 1, 12
  822.     PrintLn "@X17║ @X07│ @X70│ @X71User: @X7E@USER:50@            @X7F│@X07 @X07│@X17 ║@X07"
  823.     AnsiPos 1, 13
  824.     PrintLn "@X17║ @X07│ @X70│ @X74From: @X7F@CITY:40@ @X74Connected at: @X7F@CARRIER:6@ @X7F│@X07 @X07│@X17 ║@X07"
  825.     AnsiPos 1, 14
  826.     PrintLn "@X17║ @X07│ @X70│ @X74Number of Downloads: @X7F@DLFILES:5@       @X74Number of Uploads: @X7F@UPFILES:5@           @X7F│@X07 @X07│@X17 ║@X07"
  827.     AnsiPos 1, 15
  828.     PrintLn "@X17║ @X07│ @X70│ @X74No. of Messages Read: @X7F@MSGREAD:8@   @X74No. of messages written: @X7F@MSGLEFT:8@  @X7F│@X07 @X07│@X17 ║@X07"
  829.     AnsiPos 1, 16
  830.     PrintLn "@X17║ @X07│ @X70│ @X74Number of times you have logged on the system: @X7F@NUMTIMESON:6@               @X7F│@X07 @X07│@X17 ║@X07"
  831.     AnsiPos 1, 17
  832.     PrintLn "@X17║ @X07│ @X70│                                                                     @X7F│@X07 @X07│@X17 ║@X07"
  833.     AnsiPos 1, 18
  834.     PrintLn "@X17║ @X07│ @X70│ @X74Your current expiration date is set for: @X7E@EXPDATE:8@                   @X7F│@X07 @X07│@X17 ║@X07"
  835.     AnsiPos 1, 19
  836.     PrintLn "@X17║ @X07│ @X70└@X7F─────────────────────────────────────────────────────────────────────┘@X07 @X07│@X17 ║@X07"
  837.     AnsiPos 1, 22
  838.     PrintLn "                                                            "
  839.     AnsiPos 1, 22
  840.     Wait
  841.     Goto LABEL005
  842.     :LABEL025
  843.     Gosub LABEL047
  844.     AnsiPos 1, 4
  845.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0ENEWS@X0C]@X0E                                      @X17 ║@X07"
  846.     AnsiPos 1, 5
  847.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  848.     AnsiPos 1, 6
  849.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  850.     AnsiPos 1, 7
  851.     PrintLn "@X17║ @X07│ @X0FRe-displays the systems news.                                           @X07│@X17 ║@X07"
  852.     AnsiPos 1, 22
  853.     PrintLn "                                                            "
  854.     AnsiPos 1, 22
  855.     Wait
  856.     Goto LABEL005
  857.     :LABEL026
  858.     Gosub LABEL047
  859.     AnsiPos 1, 4
  860.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EWHO@X0C]@X0E's Onlline                             @X17 ║@X07"
  861.     AnsiPos 1, 5
  862.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  863.     AnsiPos 1, 6
  864.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  865.     AnsiPos 1, 7
  866.     PrintLn "@X17║ @X07│ @X0FThe @X0BWHO @X0Fcommand will show you a list of any activity on the other nodes @X07│@X17 ║@X07"
  867.     AnsiPos 1, 8
  868.     PrintLn "@X17║ @X07│ @X0F(phone lines).                                                          @X07@X07│@X17 ║@X07"
  869.     AnsiPos 1, 9
  870.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  871.     AnsiPos 1, 10
  872.     PrintLn "@X17║ @X07│ @X0DFor Example:                                                            @X07│@X17 ║@X07"
  873.     AnsiPos 1, 11
  874.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  875.     AnsiPos 1, 12
  876.     PrintLn "@X17║ @X07│ @X0A Node       Caller online                    Activity                   @X07│@X17 ║@X07"
  877.     AnsiPos 1, 13
  878.     PrintLn "@X17║ @X07│ @X0A ────       ─────────────────────────────    ─────────────────────────  @X07│@X17 ║@X07"
  879.     AnsiPos 1, 14
  880.     PrintLn "@X17║ @X07│   @NODE:3@       @USER:30@   Using the Tutorial         @X07│@X17 ║@X07"
  881.     AnsiPos 1, 15
  882.     PrintLn "@X17║ @X07│   2         SAMMY SMITH                      Available for Chat         @X07│@X17 ║@X07"
  883.     AnsiPos 1, 16
  884.     PrintLn "@X17║ @X07│   3         SYSTEM ACTIVITY                  Internet Mail Run          @X07│@X17 ║@X07"
  885.     AnsiPos 1, 22
  886.     PrintLn "                                                            "
  887.     AnsiPos 1, 22
  888.     Wait
  889.     Goto LABEL005
  890.     :LABEL027
  891.     Gosub LABEL047
  892.     AnsiPos 1, 4
  893.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EH@X0C]@X0Eelp                                      @X17 ║@X07"
  894.     AnsiPos 1, 5
  895.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  896.     AnsiPos 1, 6
  897.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  898.     AnsiPos 1, 7
  899.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  900.     AnsiPos 1, 8
  901.     PrintLn "@X17║ @X07│ @X0FUsing this command should bring you back to this tutorial :-)           @X07│@X17 ║@X07"
  902.     AnsiPos 1, 22
  903.     PrintLn "                                                            "
  904.     AnsiPos 1, 22
  905.     Wait
  906.     Goto LABEL001
  907.     :LABEL028
  908.     Gosub LABEL047
  909.     AnsiPos 1, 4
  910.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EX@X0C]@X0Epert Menus (on/off)                      @X17 ║@X07"
  911.     AnsiPos 1, 5
  912.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  913.     AnsiPos 1, 6
  914.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  915.     AnsiPos 1, 7
  916.     PrintLn "@X17║ @X07│ @X0FThe @X0BX-pert @X0Fmenus command will turn @X0Con @X0For @X0Coff @X0Fall the systems menus.     @X07│@X17 ║@X07"
  917.     AnsiPos 1, 8
  918.     PrintLn "@X17║ @X07│ @X0FWhen turned off no menus will be displayed and the only thing that will @X07@X07│@X17 ║@X07"
  919.     AnsiPos 1, 9
  920.     PrintLn "@X17║ @X07│ @X0Fappear is the command line prompt.                                      @X07│@X17 ║@X07"
  921.     AnsiPos 1, 10
  922.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  923.     AnsiPos 1, 11
  924.     PrintLn "@X17║ @X07│ @X0DExample:                                                                @X07│@X17 ║@X07"
  925.     AnsiPos 1, 12
  926.     PrintLn "@X17║ @X07│         @X0BMain Board command? @X87_                                           @X07│@X17 ║@X07"
  927.     AnsiPos 1, 13
  928.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  929.     AnsiPos 1, 14
  930.     PrintLn "@X17║ @X07│ @X0FTo turn x-pert mode off and view the menus just, choose the x-pert      @X07│@X17 ║@X07"
  931.     AnsiPos 1, 15
  932.     PrintLn "@X17║ @X07│ @X0Fcommand again.                                                          @X07│@X17 ║@X07"
  933.     AnsiPos 1, 22
  934.     PrintLn "                                                            "
  935.     AnsiPos 1, 22
  936.     Wait
  937.     Goto LABEL005
  938.     :LABEL029
  939.     Gosub LABEL047
  940.     AnsiPos 1, 4
  941.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EB@X0C]@X0Eulletins                                 @X17 ║@X07"
  942.     AnsiPos 1, 5
  943.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  944.     AnsiPos 1, 6
  945.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  946.     AnsiPos 1, 7
  947.     PrintLn "@X17║ @X07│ @X0FDisplays a list of Bulletins available for reading. These bulletins     @X07│@X17 ║@X07"
  948.     AnsiPos 1, 8
  949.     PrintLn "@X17║ @X07│ @X0Fcontain important information about should be read by everyone.         @X07@X07│@X17 ║@X07"
  950.     AnsiPos 1, 9
  951.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  952.     AnsiPos 1, 10
  953.     PrintLn "@X17║ @X07│ @X0DSubcommands:                                                            @X07│@X17 ║@X07"
  954.     AnsiPos 1, 11
  955.     PrintLn "@X17║ @X07│ @X0AB;#  @X0FThe bulletin number to view.                                       @X07│@X17 ║@X07"
  956.     AnsiPos 1, 12
  957.     PrintLn "@X17║ @X07│ @X0AB;A  @X0FDisplays ALL the bulletins.                                        @X07│@X17 ║@X07"
  958.     AnsiPos 1, 13
  959.     PrintLn "@X17║ @X07│ @X0AB;N  @X0FDisplays a bulletin only if its new.                               @X07│@X17 ║@X07"
  960.     AnsiPos 1, 14
  961.     PrintLn "@X17║ @X07│ @X0AB;S  @X0FScans the bulletins for text.                                      @X07│@X17 ║@X07"
  962.     AnsiPos 1, 22
  963.     PrintLn "                                                            "
  964.     AnsiPos 1, 22
  965.     Wait
  966.     Goto LABEL001
  967.     :LABEL030
  968.     Gosub LABEL047
  969.     AnsiPos 1, 4
  970.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EO@X0C]@X0Eperator Page                             @X17 ║@X07"
  971.     AnsiPos 1, 5
  972.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  973.     AnsiPos 1, 6
  974.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  975.     AnsiPos 1, 7
  976.     PrintLn "@X17║ @X07│ @X0FRequests a chat with the SysOp. If the SysOp is unavailable, then you   @X07│@X17 ║@X07"
  977.     AnsiPos 1, 8
  978.     PrintLn "@X17║ @X07│ @X0Fwill be asked if you wish to leave a comment. (a message)               @X07│@X17 ║@X07"
  979.     AnsiPos 1, 22
  980.     PrintLn "                                                            "
  981.     AnsiPos 1, 22
  982.     Wait
  983.     Goto LABEL003
  984.     :LABEL031
  985.     Gosub LABEL047
  986.     AnsiPos 1, 4
  987.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0ED@X0C]@X0Eownload                                  @X17 ║@X07"
  988.     AnsiPos 1, 5
  989.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  990.     AnsiPos 1, 6
  991.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  992.     AnsiPos 1, 7
  993.     PrintLn "@X17║ @X07│ @X0FAllows you to transfer a file from this BBS system to your computer.    @X07│@X17 ║@X07"
  994.     AnsiPos 1, 22
  995.     PrintLn "                                                            "
  996.     AnsiPos 1, 22
  997.     Wait
  998.     Goto LABEL001
  999.     :LABEL032
  1000.     Gosub LABEL047
  1001.     AnsiPos 1, 4
  1002.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EF@X0C]@X0Eile Directories                          @X17 ║@X07"
  1003.     AnsiPos 1, 5
  1004.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1005.     AnsiPos 1, 6
  1006.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1007.     AnsiPos 1, 7
  1008.     PrintLn "@X17║ @X07│ @X0FDisplays a menu listing the file directories available.                 @X07│@X17 ║@X07"
  1009.     AnsiPos 1, 8
  1010.     PrintLn "@X17║ @X07│                                                                         @X07@X07│@X17 ║@X07"
  1011.     AnsiPos 1, 9
  1012.     PrintLn "@X17║ @X07│ @X0DShortcuts-Subcommands: @X0BEnter these commands from any main or conference @X07│@X17 ║@X07"
  1013.     AnsiPos 1, 10
  1014.     PrintLn "@X17║ @X07│                        @X0Bmenu.                                            @X07│@X17 ║@X07"
  1015.     AnsiPos 1, 11
  1016.     PrintLn "@X17║ @X07│ @X0AF;#  @X0FThe file directory to view.                                        @X07│@X17 ║@X07"
  1017.     AnsiPos 1, 12
  1018.     PrintLn "@X17║ @X07│ @X0AF;A  @X0FDisplay all the directories.                                       @X07│@X17 ║@X07"
  1019.     AnsiPos 1, 22
  1020.     PrintLn "                                                            "
  1021.     AnsiPos 1, 22
  1022.     Wait
  1023.     Goto LABEL001
  1024.     :LABEL033
  1025.     Gosub LABEL047
  1026.     AnsiPos 1, 4
  1027.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EL@X0C]@X0Eocate a file                             @X17 ║@X07"
  1028.     AnsiPos 1, 5
  1029.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1030.     AnsiPos 1, 6
  1031.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1032.     AnsiPos 1, 7
  1033.     PrintLn "@X17║ @X07│ @X0FAllows you to search the file directories for filenames which match     @X07│@X17 ║@X07"
  1034.     AnsiPos 1, 8
  1035.     PrintLn "@X17║ @X07│ @X0Fthose that you are looking for. You can also use valid DOS wildcards.   @X07@X07│@X17 ║@X07"
  1036.     AnsiPos 1, 9
  1037.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1038.     AnsiPos 1, 10
  1039.     PrintLn "@X17║ @X07│ @X0DFor example:                                                            @X07│@X17 ║@X07"
  1040.     AnsiPos 1, 11
  1041.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1042.     AnsiPos 1, 12
  1043.     PrintLn "@X17║ @X07│ @X0FEntering @X0AL;RS_23 @X0Fwill search all the file directories for filenames     @X07│@X17 ║@X07"
  1044.     AnsiPos 1, 13
  1045.     PrintLn "@X17║ @X07│ @X0Fthat begin with RS_23.                                                  @X07│@X17 ║@X07"
  1046.     AnsiPos 1, 22
  1047.     PrintLn "                                                            "
  1048.     AnsiPos 1, 22
  1049.     Wait
  1050.     Goto LABEL003
  1051.     :LABEL034
  1052.     Gosub LABEL047
  1053.     AnsiPos 1, 4
  1054.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EZ@X0C]@X0Eippy Text Search                         @X17 ║@X07"
  1055.     AnsiPos 1, 5
  1056.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1057.     AnsiPos 1, 6
  1058.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1059.     AnsiPos 1, 7
  1060.     PrintLn "@X17║ @X07│ @X0FThis command allows you to search selected file directories for words   @X07│@X17 ║@X07"
  1061.     AnsiPos 1, 8
  1062.     PrintLn "@X17║ @X07│ @X0For phrases either in the filename itself or in the description of the   @X07@X07│@X17 ║@X07"
  1063.     AnsiPos 1, 9
  1064.     PrintLn "@X17║ @X07│ @X0Ffiles.                                                                  @X07│@X17 ║@X07"
  1065.     AnsiPos 1, 10
  1066.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1067.     AnsiPos 1, 11
  1068.     PrintLn "@X17║ @X07│ @X0DSubcommands:                                                            @X07│@X17 ║@X07"
  1069.     AnsiPos 1, 12
  1070.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1071.     AnsiPos 1, 13
  1072.     PrintLn "@X17║ @X07│ @X0AZ;(text)  @X0FThe text you wish to search for                               @X07│@X17 ║@X07"
  1073.     AnsiPos 1, 22
  1074.     PrintLn "                                                            "
  1075.     AnsiPos 1, 22
  1076.     Wait
  1077.     Goto LABEL005
  1078.     :LABEL035
  1079.     AnsiPos 1, 4
  1080.     PrintLn "@X0F@X70└─  @X7F 50% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0ER@X0C]@X0Eead Messages                             @X17 ║@X07"
  1081.     AnsiPos 1, 5
  1082.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1083.     AnsiPos 1, 6
  1084.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1085.     AnsiPos 1, 7
  1086.     PrintLn "@X17║ @X07│ @X0FAllows reading messages left on the system. All public messages will be @X07│@X17 ║@X07"
  1087.     AnsiPos 1, 8
  1088.     PrintLn "@X17║ @X07│ @X0Fdisplayed, along with private messages left either by you or to you.    @X07@X07│@X17 ║@X07"
  1089.     AnsiPos 1, 9
  1090.     PrintLn "@X17║ @X07│ @X0F@X0BNote: Public Messages                                                   @X07│@X17 ║@X07"
  1091.     AnsiPos 1, 10
  1092.     PrintLn "@X17║ @X07│  These are messages that have been left for everyone to read.           @X07│@X17 ║@X07"
  1093.     AnsiPos 1, 11
  1094.     PrintLn "@X17║ @X07│ @X0BNote: Private Messages                                                  @X07│@X17 ║@X07"
  1095.     AnsiPos 1, 12
  1096.     PrintLn "@X17║ @X07│  These are messages that have been left for a particular user and can   @X07│@X17 ║@X07"
  1097.     AnsiPos 1, 13
  1098.     PrintLn "@X17║ @X07│  only be read by that user.                                             @X07│@X17 ║@X07"
  1099.     AnsiPos 1, 14
  1100.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1101.     AnsiPos 1, 15
  1102.     PrintLn "@X17║ @X07│  @X0DSub-Commands:                                                          @X07│@X17 ║@X07"
  1103.     AnsiPos 1, 16
  1104.     PrintLn "@X17║ @X07│  @X0AR;(#)   @X0F@X0CR@X0Fead any exisiting message number.                             @X07│@X17 ║@X07"
  1105.     AnsiPos 1, 17
  1106.     PrintLn "@X17║ @X07│  @X0AR;F     @X0F@X0CR@X0Fead messages left @X0CF@X0From you@X0F.                                   @X07│@X17 ║@X07"
  1107.     AnsiPos 1, 18
  1108.     PrintLn "@X17║ @X07│  @X0AR;Y     @X0F@X0CR@X0Fead messages left for @X0CY@X0Fou@X0F.                                    @X07│@X17 ║@X07"
  1109.     AnsiPos 1, 19
  1110.     PrintLn "@X17║ @X07│  @X0AR;A;Y;S @X0F@X0CR@X0Fead @X0CA@X0FLL @X0CY@X0Four messages @X0CS@X0Fince the last time you logged on.      @X07│@X17 ║@X07"
  1111.     AnsiPos 1, 20
  1112.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  1113.     AnsiPos 1, 21
  1114.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  1115.     AnsiPos 1, 22
  1116.     PrintLn "                                                            "
  1117.     AnsiPos 1, 22
  1118.     Wait
  1119.     AnsiPos 1, 4
  1120.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0ER@X0C]@X0Eead Messages                             @X17 ║@X07"
  1121.     AnsiPos 1, 5
  1122.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1123.     AnsiPos 1, 6
  1124.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1125.     AnsiPos 1, 7
  1126.     PrintLn "@X17║ @X07│ @X0AR;1+     @X0F@X0CR@X0Fead all public messages from #@X0C1 @X0Fand continue forward.         @X07│@X17 ║@X07"
  1127.     AnsiPos 1, 8
  1128.     PrintLn "@X17║ @X07│ @X0AR;L      @X0F@X0CR@X0Fead all public messages from the @X0CL@X0Fast one continue backward.  @X07@X07│@X17 ║@X07"
  1129.     AnsiPos 1, 9
  1130.     PrintLn "@X17║ @X07│ @X0ARM       @X0F@X0CR@X0Fead previously @X0CM@X0Femorized message.                             @X07│@X17 ║@X07"
  1131.     AnsiPos 1, 10
  1132.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1133.     AnsiPos 1, 11
  1134.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1135.     AnsiPos 1, 12
  1136.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1137.     AnsiPos 1, 13
  1138.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1139.     AnsiPos 1, 14
  1140.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1141.     AnsiPos 1, 15
  1142.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1143.     AnsiPos 1, 16
  1144.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1145.     AnsiPos 1, 17
  1146.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1147.     AnsiPos 1, 18
  1148.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1149.     AnsiPos 1, 19
  1150.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1151.     AnsiPos 1, 20
  1152.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  1153.     AnsiPos 1, 21
  1154.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  1155.     AnsiPos 1, 22
  1156.     PrintLn "                                                            "
  1157.     AnsiPos 1, 22
  1158.     Wait
  1159.     Goto LABEL003
  1160.     :LABEL036
  1161.     Gosub LABEL047
  1162.     AnsiPos 1, 4
  1163.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EU@X0C]@X0Epload a file                             @X17 ║@X07"
  1164.     AnsiPos 1, 5
  1165.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1166.     AnsiPos 1, 6
  1167.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1168.     AnsiPos 1, 7
  1169.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1170.     AnsiPos 1, 8
  1171.     PrintLn "@X17║ @X07│  @X0FTransfers @X0B(sends) @X0Fa file from your computer to this bbs system.        @X07@X07│@X17 ║@X07"
  1172.     AnsiPos 1, 22
  1173.     PrintLn "                                                            "
  1174.     AnsiPos 1, 22
  1175.     Wait
  1176.     Goto LABEL005
  1177.     :LABEL037
  1178.     Gosub LABEL047
  1179.     AnsiPos 1, 4
  1180.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EA@X0C]@X0Ebandon conference                        @X17 ║@X07"
  1181.     AnsiPos 1, 5
  1182.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1183.     AnsiPos 1, 6
  1184.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1185.     AnsiPos 1, 7
  1186.     PrintLn "@X17║ @X07│ @X0FAbandons the current conference and places you back in the main board   @X07│@X17 ║@X07"
  1187.     AnsiPos 1, 8
  1188.     PrintLn "@X17║ @X07│ @X0Fsection of the system.                                                  @X07@X07│@X17 ║@X07"
  1189.     AnsiPos 1, 22
  1190.     PrintLn "                                                            "
  1191.     AnsiPos 1, 22
  1192.     Wait
  1193.     Goto LABEL001
  1194.     :LABEL038
  1195.     Gosub LABEL047
  1196.     AnsiPos 1, 4
  1197.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EJ@X0C]@X0Eoin a conference                         @X17 ║@X07"
  1198.     AnsiPos 1, 5
  1199.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1200.     AnsiPos 1, 6
  1201.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1202.     AnsiPos 1, 7
  1203.     PrintLn "@X17║ @X07│ @X0FAllows joining an active conference on the system.                      @X07│@X17 ║@X07"
  1204.     AnsiPos 1, 8
  1205.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07@X07│@X17 ║@X07"
  1206.     AnsiPos 1, 9
  1207.     PrintLn "@X17║ @X07│ @X0DSubCommands:                                                            @X07│@X17 ║@X07"
  1208.     AnsiPos 1, 10
  1209.     PrintLn "@X17║ @X07│ @X0AJ;(#)   @X0FEnter the @X0CJ; @X0Fcommand followed by a valid conference number from @X07│@X17 ║@X07"
  1210.     AnsiPos 1, 11
  1211.     PrintLn "@X17║ @X07│         @X0F@X0C0 @X0Fto the highest conference number on this system.              @X07│@X17 ║@X07"
  1212.     AnsiPos 1, 22
  1213.     PrintLn "                                                            "
  1214.     AnsiPos 1, 22
  1215.     Wait
  1216.     Goto LABEL003
  1217.     :LABEL039
  1218.     Gosub LABEL047
  1219.     AnsiPos 1, 4
  1220.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EI@X0C]@X0Enitial Welcome                           @X17 ║@X07"
  1221.     AnsiPos 1, 5
  1222.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1223.     AnsiPos 1, 6
  1224.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1225.     AnsiPos 1, 7
  1226.     PrintLn "@X17║ @X07│ @X0FRe-displays the initial login @X0B(welcome) @X0Fscreen.                         @X07│@X17 ║@X07"
  1227.     AnsiPos 1, 22
  1228.     PrintLn "                                                            "
  1229.     AnsiPos 1, 22
  1230.     Wait
  1231.     Goto LABEL001
  1232.     :LABEL040
  1233.     Gosub LABEL047
  1234.     AnsiPos 1, 4
  1235.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EE@X0C]@X0Enter a message                           @X17 ║@X07"
  1236.     AnsiPos 1, 5
  1237.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1238.     AnsiPos 1, 6
  1239.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1240.     AnsiPos 1, 7
  1241.     PrintLn "@X17║ @X07│ @X0FAllows you to leave a message to another person for them to read at a   @X07│@X17 ║@X07"
  1242.     AnsiPos 1, 8
  1243.     PrintLn "@X17║ @X07│ @X0Flater date.                                                             @X07│@X17 ║@X07"
  1244.     AnsiPos 1, 9
  1245.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1246.     AnsiPos 1, 10
  1247.     PrintLn "@X17║ @X07│ @X0FYou will have the opportunity to leave a public message to ALL of the   @X07│@X17 ║@X07"
  1248.     AnsiPos 1, 11
  1249.     PrintLn "@X17║ @X07│ @X0Fmembers of the board or a private message to a particular member.       @X07│@X17 ║@X07"
  1250.     AnsiPos 1, 22
  1251.     PrintLn "                                                            "
  1252.     AnsiPos 1, 22
  1253.     Wait
  1254.     Goto LABEL001
  1255.     :LABEL041
  1256.     Gosub LABEL047
  1257.     AnsiPos 1, 4
  1258.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EK@X0C]@X0Eill a message                            @X17 ║@X07"
  1259.     AnsiPos 1, 5
  1260.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1261.     AnsiPos 1, 6
  1262.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1263.     AnsiPos 1, 7
  1264.     PrintLn "@X17║ @X07│ @X0FAllows you delete a message so that others can no longer read it.       @X07│@X17 ║@X07"
  1265.     AnsiPos 1, 8
  1266.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1267.     AnsiPos 1, 9
  1268.     PrintLn "@X17║ @X07│ @X0DSubCommands:                                                            @X07│@X17 ║@X07"
  1269.     AnsiPos 1, 10
  1270.     PrintLn "@X17║ @X07│ @X0AK;(#)   @X0CKill @X0Fa vaild message @X0C# @X0F(number).                                @X07│@X17 ║@X07"
  1271.     AnsiPos 1, 22
  1272.     PrintLn "                                                            "
  1273.     AnsiPos 1, 22
  1274.     Wait
  1275.     Goto LABEL003
  1276.     :LABEL042
  1277.     AnsiPos 1, 4
  1278.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EQ@X0C]@X0Euick Message Scan                        @X17 ║@X07"
  1279.     AnsiPos 1, 5
  1280.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1281.     AnsiPos 1, 6
  1282.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1283.     AnsiPos 1, 7
  1284.     PrintLn "@X17║ @X07│ @X0FThe @X0EQuick message scan @X0Fcommand lets you view a quick description of     @X07│@X17 ║@X07"
  1285.     AnsiPos 1, 8
  1286.     PrintLn "@X17║ @X07│ @X0Fthe message headers.                                                    @X07│@X17 ║@X07"
  1287.     AnsiPos 1, 9
  1288.     PrintLn "@X17║ @X07│ @X0BThe header includes information such as:                                @X07│@X17 ║@X07"
  1289.     AnsiPos 1, 10
  1290.     PrintLn "@X17║ @X07│ @X0FThe message number, the message reference number (if any), who the      @X07│@X17 ║@X07"
  1291.     AnsiPos 1, 11
  1292.     PrintLn "@X17║ @X07│ @X0Fmessage is to, who the message is from, and the subject matter of the   @X07│@X17 ║@X07"
  1293.     AnsiPos 1, 12
  1294.     PrintLn "@X17║ @X07│ @X0Fmessage.                                                                @X07│@X17 ║@X07"
  1295.     AnsiPos 1, 13
  1296.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1297.     AnsiPos 1, 14
  1298.     PrintLn "@X17║ @X07│ @X0DSubCommands:                                                            @X07│@X17 ║@X07"
  1299.     AnsiPos 1, 15
  1300.     PrintLn "@X17║ @X07│ @X0AQ;(#)    @X0FAny valid message header.                                      @X07│@X17 ║@X07"
  1301.     AnsiPos 1, 16
  1302.     PrintLn "@X17║ @X07│ @X0AQ;F      @X0CQ@X0Fuick scans any message headers @X0CF@X0From you.                      @X07│@X17 ║@X07"
  1303.     AnsiPos 1, 17
  1304.     PrintLn "@X17║ @X07│ @X0AQ;Y      @X0CQ@X0Fuick scans any message headers to @X0CY@X0Fou.                        @X07│@X17 ║@X07"
  1305.     AnsiPos 1, 18
  1306.     PrintLn "@X17║ @X07│ @X0AQ;S      @X0CQ@X0Fuick @X0CS@X0Fcans for headers above beyond those that you have       @X07│@X17 ║@X07"
  1307.     AnsiPos 1, 19
  1308.     PrintLn "@X17║ @X07│          @X0Falready read.                                                  @X07│@X17 ║@X07"
  1309.     AnsiPos 1, 20
  1310.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  1311.     AnsiPos 1, 21
  1312.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  1313.     AnsiPos 1, 22
  1314.     PrintLn "                                                            "
  1315.     AnsiPos 1, 22
  1316.     Wait
  1317.     Goto LABEL003
  1318.     :LABEL043
  1319.     Gosub LABEL047
  1320.     AnsiPos 1, 4
  1321.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EW@X0C]@X0Erite User Information                    @X17 ║@X07"
  1322.     AnsiPos 1, 5
  1323.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1324.     AnsiPos 1, 6
  1325.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1326.     AnsiPos 1, 7
  1327.     PrintLn "@X17║ @X07│ @X0FThis command allows you to edit or view your account information.       @X07│@X17 ║@X07"
  1328.     AnsiPos 1, 8
  1329.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1330.     AnsiPos 1, 9
  1331.     PrintLn "@X17║ @X07│ @X0FInformation such as your address, phone number etc...                   @X07│@X17 ║@X07"
  1332.     AnsiPos 1, 10
  1333.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1334.     AnsiPos 1, 11
  1335.     PrintLn "@X17║ @X07│ @X0FIf any of this information has changes, please use this command to      @X07│@X17 ║@X07"
  1336.     AnsiPos 1, 12
  1337.     PrintLn "@X17║ @X07│ @X0Fupdate it.                                                              @X07│@X17 ║@X07"
  1338.     AnsiPos 1, 22
  1339.     PrintLn "                                                            "
  1340.     AnsiPos 1, 22
  1341.     Wait
  1342.     Goto LABEL005
  1343.     :LABEL044
  1344.     Gosub LABEL047
  1345.     AnsiPos 1, 4
  1346.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0ET@X0C]@X0Eransfer Protocol                         @X17 ║@X07"
  1347.     AnsiPos 1, 5
  1348.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1349.     AnsiPos 1, 6
  1350.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1351.     AnsiPos 1, 7
  1352.     PrintLn "@X17║ @X07│ @X0FDisplays a list of the various transfer protocols available for the     @X07│@X17 ║@X07"
  1353.     AnsiPos 1, 8
  1354.     PrintLn "@X17║ @X07│ @X0Fuploading and downloading of files.                                     @X07@X07│@X17 ║@X07"
  1355.     AnsiPos 1, 9
  1356.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1357.     AnsiPos 1, 10
  1358.     PrintLn "@X17║ @X07│ @X0CQuick Note:                                                             @X07│@X17 ║@X07"
  1359.     AnsiPos 1, 11
  1360.     PrintLn "@X17║ @X07│ @X0FMost SysOps highly recommended using @X0BZMODEM @X0Fas your transfer protocol.  @X07│@X17 ║@X07"
  1361.     AnsiPos 1, 12
  1362.     PrintLn "@X17║ @X07│ @X0FMake sure your communications program uses the protocol you choose.     @X07│@X17 ║@X07"
  1363.     AnsiPos 1, 13
  1364.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1365.     AnsiPos 1, 22
  1366.     PrintLn "                                                            "
  1367.     AnsiPos 1, 22
  1368.     Wait
  1369.     Goto LABEL005
  1370.     :LABEL045
  1371.     Gosub LABEL047
  1372.     AnsiPos 1, 4
  1373.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EP@X0C]@X0Eage Length                               @X17 ║@X07"
  1374.     AnsiPos 1, 5
  1375.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1376.     AnsiPos 1, 6
  1377.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1378.     AnsiPos 1, 7
  1379.     PrintLn "@X17║ @X07│ @X0FSpecifies the number of lines displayed on your screen.                 @X07│@X17 ║@X07"
  1380.     AnsiPos 1, 8
  1381.     PrintLn "@X17║ @X07│                                                                         @X07@X07│@X17 ║@X07"
  1382.     AnsiPos 1, 9
  1383.     PrintLn "@X17║ @X07│ @X0FIt is recommended to set this value at 23 or 24.                        @X07│@X17 ║@X07"
  1384.     AnsiPos 1, 22
  1385.     PrintLn "                                                            "
  1386.     AnsiPos 1, 22
  1387.     Wait
  1388.     Goto LABEL003
  1389.     :LABEL046
  1390.     Gosub LABEL047
  1391.     AnsiPos 1, 4
  1392.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A Command: @X0C[@X0EN@X0C]@X0Eew File scan                             @X17 ║@X07"
  1393.     AnsiPos 1, 5
  1394.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1395.     AnsiPos 1, 6
  1396.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1397.     AnsiPos 1, 7
  1398.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1399.     AnsiPos 1, 8
  1400.     PrintLn "@X17║ @X07│                                                                         @X07@X07│@X17 ║@X07"
  1401.     AnsiPos 1, 9
  1402.     PrintLn "@X17║ @X07│ @X0FDisplays file listings based on a date scan of when the file was placed @X07│@X17 ║@X07"
  1403.     AnsiPos 1, 10
  1404.     PrintLn "@X17║ @X07│ @X0Fon the system.                                                          @X07│@X17 ║@X07"
  1405.     AnsiPos 1, 11
  1406.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1407.     AnsiPos 1, 12
  1408.     PrintLn "@X17║ @X07│ @X0DSubCommands:                                                            @X07│@X17 ║@X07"
  1409.     AnsiPos 1, 13
  1410.     PrintLn "@X17║ @X07│ @X0AN;(date)   @X0FNew since (date - in mmddyy format)                          @X07│@X17 ║@X07"
  1411.     AnsiPos 1, 14
  1412.     PrintLn "@X17║ @X07│ @X0AN;A        @X0FSearch for @X0CN@X0Few files in @X0CA@X0Fll the directories                  @X07│@X17 ║@X07"
  1413.     AnsiPos 1, 15
  1414.     PrintLn "@X17║ @X07│ @X0AN;S        @X0FSearch for @X0CN@X0Few files @X0CS@X0Fince the last time you were logged on. @X07│@X17 ║@X07"
  1415.     AnsiPos 1, 22
  1416.     PrintLn "                                                            "
  1417.     AnsiPos 1, 22
  1418.     Wait
  1419.     Goto LABEL003
  1420.     :LABEL047
  1421.     AnsiPos 1, 4
  1422.     PrintLn "@X0F@X70└─               @X70─┘@X07  @X17║ @X0A Searching please wait...                             @X17 ║@X07"
  1423.     AnsiPos 1, 5
  1424.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  1425.     AnsiPos 1, 6
  1426.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  1427.     AnsiPos 1, 7
  1428.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1429.     AnsiPos 1, 8
  1430.     PrintLn "@X17║ @X07│                                                                         @X07@X07│@X17 ║@X07"
  1431.     AnsiPos 1, 9
  1432.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1433.     AnsiPos 1, 10
  1434.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1435.     AnsiPos 1, 11
  1436.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1437.     AnsiPos 1, 12
  1438.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1439.     AnsiPos 1, 13
  1440.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1441.     AnsiPos 1, 14
  1442.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1443.     AnsiPos 1, 15
  1444.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1445.     AnsiPos 1, 16
  1446.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1447.     AnsiPos 1, 17
  1448.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1449.     AnsiPos 1, 18
  1450.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1451.     AnsiPos 1, 19
  1452.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  1453.     AnsiPos 1, 20
  1454.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  1455.     AnsiPos 1, 21
  1456.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  1457.     AnsiPos 1, 22
  1458.     PrintLn "                                                            "
  1459.     AnsiPos 1, 22
  1460.     Return
  1461.     :LABEL048
  1462.     AnsiPos 26, 17
  1463.     PrintLn "@X0B@X4F  Please @XCEmake your selection @X4Ffrom the catagories  @X07"
  1464.     AnsiPos 26, 18
  1465.     PrintLn "@X0B@X4F               ABOVE or on the LEFT.              @X07"
  1466.     Delay 100
  1467.     Return
  1468.     :LABEL049
  1469.  
  1470. ;------------------------------------------------------------------------------
  1471. ;
  1472. ; Usage report (before postprocessing)
  1473. ;
  1474. ; ■ Statements used :
  1475. ;
  1476. ;    5       End
  1477. ;    38      Wait
  1478. ;    256     Goto 
  1479. ;    18      Let 
  1480. ;    428     PrintLn 
  1481. ;    84      If 
  1482. ;    9       DispFile 
  1483. ;    1       FOpen 
  1484. ;    15      FGet 
  1485. ;    29      Gosub 
  1486. ;    2       Return
  1487. ;    1       Delay 
  1488. ;    463     AnsiPos 
  1489. ;    1       FCloseAll
  1490. ;    5       EndFunc
  1491. ;
  1492. ;
  1493. ; ■ Functions used :
  1494. ;
  1495. ;    1       /
  1496. ;    21      +
  1497. ;    84      ==
  1498. ;    5       <>
  1499. ;    74      !
  1500. ;    5       ||
  1501. ;    1       Len(
  1502. ;    72      Upper()
  1503. ;    2       Mid()
  1504. ;    1       Right()
  1505. ;    5       Chr()
  1506. ;    3       Asc()
  1507. ;    5       Inkey()
  1508. ;    3       String()
  1509. ;    1       PCBDat()
  1510. ;    10      PPEPath()
  1511. ;    1       ReadLine()
  1512. ;
  1513. ;------------------------------------------------------------------------------
  1514. ;
  1515. ; Analysis flags : d
  1516. ;
  1517. ; d - Access PCBOARD.DAT ■ 2
  1518. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1519. ;     for many PPE so they can find various informations on the system
  1520. ;     (system paths, max number of lines in messages, ...) but it may also
  1521. ;     be a way to gather vital informations.
  1522. ;     ■ Search for : PCBDAT()
  1523. ;
  1524. ;------------------------------------------------------------------------------
  1525. ;
  1526. ; Postprocessing report
  1527. ;
  1528. ;    0       For/Next
  1529. ;    10      While/EndWhile
  1530. ;    62      If/Then or If/Then/Else
  1531. ;    1       Select Case
  1532. ;
  1533. ;------------------------------------------------------------------------------
  1534. ;                 AEGiS Corp - Break the routines, code against the machines!
  1535. ;------------------------------------------------------------------------------
  1536.